home *** CD-ROM | disk | FTP | other *** search
/ Deluxe Paint 5 / Deluxe Paint V.iso / dpaintv_install / install-deluxepaintv < prev    next >
Text File  |  1997-11-04  |  17KB  |  514 lines
  1. ; $Id: Install-DeluxePaintV,v 1.7 94/08/10 15:58:27 lee Exp $
  2. ; $VER: Install-DeluxePaintV 1.7
  3. ;
  4. ; Copyright (c) 1994 Electronic Arts, Inc. All Rights Reserved.
  5.  
  6. (
  7. (run "assign dpaintv_install: DPaintv:dpaintv_install")
  8. (run "assign dpaintv_media: dpaintv:dpaintv_media")
  9. (run "assign dpaintV_examples: dpaintv:dpaintv_examples")
  10. (run "assign dpaintv_extras: dpaintv:dpaintv_extras")
  11. )
  12.  
  13.  
  14. (set app_prefix "DPaintV_")
  15. (set app_disk1  "Install")
  16. (set app_disk2  "Media")
  17. (set app_disk3  "Examples")
  18. (set app_disk4  "Extras")
  19.  
  20. (set app_volume1 (cat app_prefix app_disk1 ":"))
  21. (set app_volume2 (cat app_prefix app_disk2 ":"))
  22. (set app_volume3 (cat app_prefix app_disk3 ":"))
  23. (set app_volume4 (cat app_prefix app_disk4 ":"))
  24.  
  25. (set expert_user_level 2)
  26. (set orig_user_level @user-level)
  27.  
  28. ; standard amiga error codes
  29. (set RC_OK     0
  30.      RC_WARN   5
  31.      RC_ERROR 10
  32.      RC_FATAL 20
  33.      )
  34.  
  35. ; program install options
  36. (set INSTF_DPAINT  1
  37.      INSTF_DPLAYER 2)
  38.  
  39.  
  40. ;
  41. ; determine AmigaDos version and revision numbers
  42. ;
  43. (set AmigaDos_Number   (getversion))
  44. (set AmigaDos_Version  (/ AmigaDos_Number 65536))
  45. (set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))
  46.  
  47. ;
  48. ; set up some message strings
  49. ;
  50. (set format_msg
  51.    (cat
  52.       "Please insert an unused write-enabled floppy disk in drive "
  53.       "DF0 before clicking on the \"Proceed\" button. This will be "
  54.       "your destination disk.\n\n"
  55.  
  56.       "When prompted for a source disk (i.e. \"DPaintV_Install\"), "
  57.       "place the source disk in any drive other than DF0\n\n"
  58.    )
  59. )
  60.  
  61. (set format_help
  62.    (cat
  63.       format_msg
  64.  
  65.       "Warning all data on the write-enabled floppy you provide "
  66.       "will be erased!\n\n"
  67.  
  68.       "Please make sure that all your original DeluxePaintV "
  69.       "source disks are write-protected before proceeding!!"
  70.    )
  71. )
  72.  
  73.  
  74. ; --------------------------------------------------------------------
  75. ; format_disk:
  76. ;   standard floppy format procedure.
  77. ;   if an error occurs during the format, a message will be put up
  78. ;   and the user re-prompted.
  79. ;
  80. ; inputs:
  81. ;   <DstDiskName> : The name to use when formatting the disk.
  82. ;
  83. ; outputs:
  84. ;   <fmt_error>  will be set to 0 if disk was formatted successfully,
  85. ;                or some value <= RC_WARN if the user cancelled the format.
  86. ;
  87. (procedure format_disk
  88.    (run "echo >ram:newline <nil: \"\"")
  89.    (run ("assign \"%s\" remove" (cat DstDisName ":")))
  90.    (user expert_user_level)
  91.    (set fmt_error RC_FATAL)
  92.    (until (<= fmt_error RC_WARN)
  93.      ((set fmt_error
  94.            (run  ("sys:system/format DRIVE DF0: NAME \"%s\" FFS NOICONS >NIL: <ram:newline" DstDiskName)
  95.                  (help format_help)
  96.                  (prompt (cat ("Creating disk \"%s\"...\n\n" DstDiskName) format_msg))
  97.                  (confirm)
  98.                  )
  99.             )
  100.        (transcript "format_result = " fmt_error)
  101.        (if (> fmt_error RC_WARN)
  102.            (message ("Error formatting disk \"%s\"" DstDiskName)))
  103.        
  104.        ))
  105.     (user orig_user_level)
  106.     (delete ram:newline)
  107. )
  108.  
  109.  
  110.  
  111. ; --------------------------------------------------------------------
  112. (procedure setup_floppy_install
  113.   (user expert_user_level)
  114.   (message "The complete floppy disk installation requires 4 "
  115.            "unused disks. Please have your disks ready.\n\n"
  116.  
  117.            "Warning: this install procedure assumes that you have "
  118.            "at least two disk drives."
  119.            )
  120.   (user orig_user_level)
  121. )
  122.  
  123. ; --------------------------------------------------------------------
  124. (procedure setup_hd_install
  125.    (message 
  126.       "\nYour copy of DeluxePaintV will be installed in a new drawer named "
  127.       "\"DPaintV\". You will be asked where on your hard drive (or "
  128.       "storage device) you want this drawer created.")
  129.  
  130.    (set app_locate
  131.       (askdir
  132.          (prompt "Please indicate where you want the DPaintV drawer "
  133.                  "to be located.")
  134.          (help @askdir-help)
  135.          (default @default-dest)
  136.          ))
  137.  
  138.  
  139.    (set app_path (tackon app_locate "DPaintV"))
  140.    (makedir app_path (infos))
  141. )
  142.  
  143.  
  144.  
  145. ; --------------------------------------------------------------------
  146. ; copy_volume1 
  147. ;    copies files from <app_volume1> into the user's preselected 
  148. ;    destination directory. If we're doing a <hd_install> this procedure
  149. ;    assumes <app_path> has already been set.  If we're doing a 
  150. ;    floppy install, the files will be copied to the newly formatted
  151. ;    'DPaintV' disk.
  152. ;
  153. ;    if either dpaint or dplayer are installed and catalogs directory
  154. ;    will be created. This assumes that app_volume1 contains an empty
  155. ;    catalogs directory and that the user will be prompted for language
  156. ;    installation later.
  157. ;
  158. (procedure copy_volume1
  159.   (complete 5)
  160.   (set program_options 
  161.       (askoptions
  162.          (prompt "Which applications do you wish to install?")
  163.          (choices "DPaint" "DPlayer")
  164.          (help  "  DPaint  -- installs DPaint and its support files\n"
  165.                 "  DPlayer -- installs DPaint Player Utility\n\n"
  166.                 @askoptions-help)
  167.          )
  168.       )
  169.   (if (not hd_install)
  170.       ((set DstDiskName "DPaintV")
  171.        (set app_path    (cat DstDiskName ":"))
  172.        (if program_options
  173.            ((format_disk) 
  174.             (if fmt_error (set program_options 0))))))
  175.   (if (bitand INSTF_DPAINT program_options)
  176.       (copyfiles
  177.          (prompt "Copying DPaint and its support files...")
  178.          (source app_volume1)
  179.          (dest   app_path)
  180.          (choices "DPaint" "Libs" "Fonts")
  181.          (help @copyfiles-help)
  182.          (infos)
  183.          (fonts)
  184.          ))
  185.   (complete 10)
  186.   (if (bitand INSTF_DPLAYER program_options)
  187.       (copyfiles
  188.          (prompt "Copying DPlayer...")
  189.          (source app_volume1)
  190.          (dest   app_path)
  191.          (choices "DPlayer")
  192.          (infos)
  193.          (help @copyfiles-help)
  194.          ))
  195.   (set @default-dest app_path)
  196. )
  197.  
  198. ; --------------------------------------------------------------------
  199. (procedure copy_dir
  200.   (copyfiles 
  201.       (prompt  ("Copying \"%s\"..." app_dir))
  202.       (source  app_volume)
  203.       (dest    app_path)
  204.       (choices app_dir)
  205.       (help    @copyfiles-help)
  206.       (infos)
  207.       (fonts)
  208.       (optional)
  209.       )
  210. )
  211.  
  212. ; --------------------------------------------------------------------
  213. ; copy_volume2 
  214. ;    copies files from <app_volume2> into the user's preselected 
  215. ;    destination directory. If we're doing a <hd_install> this procedure
  216. ;    assumes <app_path> has already been set.  If we're doing a 
  217. ;    floppy install, the files will be copied to the newly formatted
  218. ;    <app_disk2> disk.
  219. ;
  220. (procedure copy_volume2
  221.   (complete 15)
  222.   (set options 
  223.       (askoptions 
  224.           (prompt "Which of the following directories do you wish to install?")
  225.           (choices "Media" "Textures" "Patterns" "Brush" "Move" "Colours")
  226.           (help "  Media    -- sample media types (chalk,oil,etc..)\n"
  227.                 "  Textures -- sample paper textures\n"
  228.                 "  Patterns -- sample fill patterns\n"
  229.                 "  Brush    -- sample brushes\n"
  230.                 "  Move     -- sample move templates\n"
  231.                 "  Colours  -- sample colours/palettes\n"
  232.                 "\n"
  233.                 @askoptions-help)
  234.           )
  235.       )
  236.   (if options
  237.       (if (not hd_install)
  238.           ((set DstDiskName app_disk2)
  239.            (set app_path (cat DstDiskName ":"))
  240.            (format_disk)
  241.            (if fmt_error (set options 0)))))
  242.   (set app_volume app_volume2)
  243.   (if (bitand 1 options)
  244.       ((set app_dir "Media") (copy_dir)))
  245.   (complete 20)
  246.   (if (bitand 2 options)
  247.       ((set app_dir "Textures") (copy_dir)))
  248.   (complete 25)
  249.   (if (bitand 4 options)
  250.       ((set app_dir "Patterns") (copy_dir)))
  251.   (complete 30)
  252.   (if (bitand 8 options)
  253.       ((set app_dir "Brush") (copy_dir)))
  254.   (complete 35)
  255.   (if (bitand 16 options)
  256.       ((set app_dir "Move") (copy_dir)))
  257.   (complete 40)
  258.   (if (bitand 32 options)
  259.       ((set app_dir "Colours") (copy_dir)))
  260. )
  261.  
  262.  
  263. ; --------------------------------------------------------------------
  264. ; copy_volume3 
  265. ;    copies files from <app_volume3> into the user's preselected 
  266. ;    destination directory. If we're doing a <hd_install> this procedure
  267. ;    assumes <app_path> has already been set.  If we're doing a 
  268. ;